home *** CD-ROM | disk | FTP | other *** search
/ Top 200 Programs / Top 200 Programs.iso / Bob8 / THOMPSON / LIBERTY / PRODUCT / LB14W.EXE / DRIVES.BAS < prev    next >
BASIC Source File  |  1995-02-21  |  498b  |  20 lines
  1.  
  2.     'a simple example illustrating the use of the Drives$ variable
  3.     dim letters$(25)
  4.     index = 0
  5.     while word$(Drives$, index + 1) <> ""
  6.         letters$(index) = word$(Drives$, index + 1)
  7.         index = index + 1
  8.     wend
  9.  
  10.     statictext #select, "Double-click to pick a drive:", 10, 10, 200, 20
  11.     listbox #select.list, letters$(, [selectionMade], 10, 35, 100, 150
  12.     open "Scan drive" for dialog as #select
  13.  
  14.     input r$
  15.  
  16. [selectionMade]
  17.  
  18.     close #select
  19.     end
  20.